10 CR$=CHR$(13):LI$="[163][163][163][163][163][163][163][163][163][163]":LI$=LI$+LI$+LI$+LI$:S=1
20 POKE53280,11:POKE53281,12:PRINT"[144][147]="S"=  [203]URZANLEITUNG [200]OOGO-[211]PRITE"
30 PRINT"[214]ERZEIHT DIE HIRNRISSIGE [194]EDIENUNG...."CR$LI$
40 PRINT"  1 BIS 7 ODER [211]PACE ==> [211]EITE WAEHLEN "
50 POKE2023,160
60 ONS GOSUB100,200,300,400,500,600,700
70 POKE198,0:WAIT198,1:GETA$:A=VAL(A$):IFA>0ANDA<8THENS=A:GOTO20
80 IF A$=" "THENS=S+1:S=S+7*(S>7):GOTO20
90 GOTO70
100 PRINT"[193]LLES WIRD UEBER [212]ASTATUR GESTEUERT."CR$
110 PRINT"[198]1[146] BRINGT EINEN (MEISTENS) WEITER,"CR$"[198]3[146] MEISTENS ZURUECK."
120 PRINTCR$" [218]UNAECHST MAL EINE [199]RAFIK LADEN,"
130 PRINT"DANN KOMMT MAN ZUR [215]AHL DES [193]USSCHNITTS"
199 RETURN
200 PRINT"[199]RAFIKAUSSCHNITT WAEHLEN"CR$LI$
210 PRINT"[205]          [205]ULTI [197]IN/[193]US"
220 PRINT"[198]7/[198]8      [200]INTERGRUNDFARBE"
223 PRINT"[198]5/[198]6      [214]ORDERGRUNDFARBEN"
227 PRINT"[210]ETURN     [197]CKE WAEHLEN"
229 PRINT"[198]3         [218]URUECK"
230 PRINT"[198]1         [215]EITER,FALLS SCHON MOEGLICH"
299 RETURN
300 PRINT"[208]IXELEDITOR"CR$LI$
310 PRINT"[198]ARBTASTEN [218]EICHENFARBE"
320 PRINT"_          [198]ARBE UNTER [195]URSOR"
330 PRINT"[213]          [213]NDO - '[198]ARBE'"
340 PRINT"[198]3         [218]URUECK"
350 PRINT"[198]1         [215]EITER"
399 RETURN
400 PRINT"[211]PRITEGRABBER"CR$LI$
410 PRINT"[198]ARBTASTEN [211]PRITEFARBE"
420 PRINT"[198]5/[198]7      [205]ULTICOLORFARBEN"
430 PRINT"[216]/[217]        [197]XPAND"
440 PRINT"1 BIS 8    [211]PRITENUMMER"
450 PRINT"[205]          [205]ULTI / [200]IRES"
451 PRINT"[210]ETURN     [199]RAB"
452 PRINT"[208]          [208]RIORITAETEN"
453 PRINT"[198]1         [194]ILD"
454 PRINT"[198]2         [211]PRITEMEMORY"
455 PRINT"[198]3         [218]URUECK"
499 RETURN
500 PRINT"[208]RIORITAETEN "CR$LI$
510 PRINT"[215]ERDEN BENOETIGT, WENN MEHRERE
520 [153]"PEEKILDPUNKTE ZU EINEM (null)PRITEPUNKT
530 PRINT"GEMACHT WERDEN MUESSEN, Z.[194]. BEI
540 [153]"VALXPANDED ODER (null)ULTICOLOR.
550 PRINT"[210]ECHTS STEHEN [198]ARBEN HOHER [208]RIORITAET"
551 PRINT"[198]ARBTASTEN [198]ARBE EINFUEGEN
552 [153]"(null)ETURN     (null)URUECK
599 RETURN
600 PRINT"[194]ILD"CR$LI$
610 PRINT"[198]7/[198]8      [198]ARBE
620 [153]"ASC3         (null)URUECK
630 PRINT"1 BIS 8    [211]PRITEPRIORITAET
640 [153]"ASC5         PEEKILD VALIN/ATNUS
699 RETURN
700 PRINT"[211]PRITESPEICHER"CR$LI$
710 PRINT"[210]ETURN     [211]PRITE -> [211]PEICHER
720 [153]"(null)H/(null)ETRUN  (null)PEICHER -> (null)PRITE
730 PRINT"1 BIS 8    [211]PRITE WAEHLEN
740 [153]"ASC3         (null)URUECK
750 PRINT"[211]          [211]AVE
760 [153]"ATNCHTUNG !WAIT"CR$" (null)AVE 1-126 SAVES 1 BIS 126
770 PRINT" [211]AVE 126-1 SAVES 126,127,0,1 !!!"
799 RETURN